Row

leaflet() %>%
  fitBounds(lng1 = -86, lng2 = -82, lat1 = 8, lat2 = 11) %>%
  addProviderTiles(providers$OpenStreetMap.Mapnik, group = "Open StreeT Map") %>%
  addTiles(urlTemplate ="https://mts1.google.com/vt/lyrs=s&hl=en&src=app&x={x}&y={y}&z={z}&s=G", attribution = 'Google', group = "Google Maps") %>%
  addMarkers(data= datos, clusterOptions = markerClusterOptions(),
             group = "Registros",
             popup = paste(
               "Especie: ", datos$Especie, "<br>",
               "Nombre común: ", datos$Nombre_com, "<br>",
               "Registros: ", datos$Total, "<br>",
               "Provincia: ", datos$provincia, "<br>",
               "Cantón: ", datos$canton, "<br>",
               "Distrito: ", datos$distrito, "<br>")) %>%
  addMarkers(data= fuera,
             group = "Registros eliminados",
             popup = paste(
               "Especie: ", fuera$Especie, "<br>",
               "Nombre común: ", fuera$Nombre_com, "<br>",
               "Registros: ", fuera$Total, "<br>",
               "Sitio: ", fuera$Lugar, "<br>",
               "Plataforma: ", fuera$Plataforma)) %>%
  addMarkers(data= titi1, group = "Registros titi",
             popup = paste(
               "Especie: ", titi1$Especie, "<br>",
               "Nombre común: ", titi1$Nombre_com, "<br>",
               "Registros: ", titi1$Total, "<br>",
               "Provincia: ", titi1$provincia, "<br>",
               "Cantón: ", titi1$canton, "<br>",
               "Distrito: ", titi1$distrito, "<br>")) %>%
  addMarkers(data= congo1, group = "Registros congo",
             popup = paste(
               "Especie: ", congo1$Especie, "<br>",
               "Nombre común: ", congo1$Nombre_com, "<br>",
               "Registros: ", congo1$Total, "<br>",
               "Provincia: ", congo1$provincia, "<br>",
               "Cantón: ", congo1$canton, "<br>",
               "Distrito: ", congo1$distrito, "<br>")) %>%
  addMarkers(data= araña1, group = "Registros araña",
             popup = paste(
               "Especie: ", araña1$Especie, "<br>",
               "Nombre común: ", araña1$Nombre_com, "<br>",
               "Registros: ", araña1$Total, "<br>",
               "Provincia: ", araña1$provincia, "<br>",
               "Cantón: ", araña1$canton, "<br>",
               "Distrito: ", araña1$distrito, "<br>")) %>%
  addMarkers(data= cara_blanca1, group = "Registros cara blanca",
             popup = paste(
               "Especie: ", cara_blanca1$Especie, "<br>",
               "Nombre común: ", cara_blanca1$Nombre_com, "<br>",
               "Registros: ", cara_blanca1$Total, "<br>",
               "Provincia: ", cara_blanca1$provincia, "<br>",
               "Cantón: ", cara_blanca1$canton, "<br>",
               "Distrito: ", cara_blanca1$distrito, "<br>")) %>%
  addPolygons(
    data = sf_datos_suma,
    stroke=T, fillOpacity = 0,
    color="red", weight=0.8, opacity= 2.0,
    group = "Distritos con registros",
    popup = paste(
      "Provincia: ", sf_datos_suma$provincia, "<br>",
      "Cantón: ", sf_datos_suma$canton, "<br>",
      "Distrito: ", sf_datos_suma$distrito, "<br>",
      "Registros: ", sf_datos_suma$Total, "<br>")) %>%
  addHeatmap(data = datos,
             lng = ~longitude, lat = ~latitude, intensity = ~Total,
             blur = 10, max = max(datos$Total), radius = 15,
             group = "Densidad") %>%
  addPolygons(data= asp_wgs84, color = "#35b541", fill = TRUE, fillColor = "#35b541", stroke = T, weight = 3, opacity = 0.5,
              group = "ASP",
              popup = paste("Área Silvestre Protegida:", asp_wgs84$nombre_asp, "Área de conservación:", asp_wgs84$nombre_ac, sep = '<br/>')) %>%
  addPolygons(data = ac_wgs84, color = "#35b541", fill = TRUE, fillColor = "#35b541", stroke = T, weight = 3, opacity = 0.5,
              group = "Área de Conservación",
              popup = paste(
                "Área de conservación: ", ac_wgs84$AREA_CONSE, "<br>")) %>%
  addPolylines(data = redvial_wgs84, color = "#818c8c", fill = TRUE, fillColor = "#818c8c", stroke = T, weight = 3, opacity = 0.5,
               group = "Red Vial",
               smoothFactor = 10) %>%
  addLayersControl(baseGroups = c("OpenStreetMap", "Google Maps"),
                   overlayGroups = c("Registros", "Registros eliminados", "Registros titi", "Registros congo", "Registros araña", "Registros cara blanca", "Distritos con registros", "Densidad", "ASP", "Área de Conservación", "Red Vial"),
                   options = layersControlOptions(collapsed = TRUE))  %>%
  addScaleBar()  %>%
  hideGroup(c("Registros eliminados", "Distritos con registros", "Registros titi", "Registros congo", "Registros araña", "Registros cara blanca", "Densidad", "ASP", "Área de Conservación", "Red Vial")) %>%
  addMiniMap(
    toggleDisplay = TRUE,
    position = "bottomleft",
    tiles = providers$OpenStreetMap.Mapnik)